home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / egyptw.dir / 01717_Script_Farmer < prev    next >
Text File  |  1995-09-13  |  7KB  |  250 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on EFarmRollovers1
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if the mousecast = the castnum of sprite 7 then
  7.       repeat while the mousecast = the castnum of sprite 7 or rollover(8)
  8.         EgyptCursor
  9.         puppetsprite 8, true
  10.         set the locH of sprite 8 to 125
  11.         set the locV of sprite 8 to 347
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             set the locH of sprite 8 to 825
  18.             updatestage
  19.             repeat while gBeenClicked = 1
  20.               FarmingAnimate
  21.             end repeat
  22.           end if
  23.         end if
  24.       end repeat
  25.       set the locH of sprite 8 to 925
  26.       puppetsprite 8, false
  27.       updatestage
  28.     else
  29.       if rollover(9) then
  30.         repeat while rollover(9)
  31.           ArrowCursor
  32.           set the locH of sprite 10 to 409
  33.           set the locV of sprite 10 to 344
  34.           updatestage
  35.         end repeat
  36.         set the locH of sprite 10 to 909
  37.         updatestage
  38.       else
  39.         if rollover(11) then
  40.           repeat while rollover(11)
  41.             ArrowCursor
  42.             set the locH of sprite 12 to 368
  43.             set the locV of sprite 12 to 194
  44.             updatestage
  45.           end repeat
  46.           set the locH of sprite 12 to 968
  47.           updatestage
  48.         else
  49.           if rollover(40) then
  50.             HandCursor
  51.           else
  52.             if rollover(41) then
  53.               HandCursor
  54.             else
  55.               if rollover(42) then
  56.                 HandCursor
  57.               else
  58.                 ArrowCursor
  59.               end if
  60.             end if
  61.           end if
  62.         end if
  63.       end if
  64.     end if
  65.   end if
  66.   RandomQuestion(gQuest)
  67. end
  68.  
  69. on EFarmRollovers2
  70.   set gBeenClicked = 0
  71.   if (not(CheckClickedStatus(gQuest))) then
  72.     if rollover(7) or rollover(8) then
  73.       repeat while rollover(7) or rollover(8)
  74.         EgyptCursor
  75.         puppetsprite 27, true
  76.         set the locH of sprite 27 to 553
  77.         set the locV of sprite 27 to 202
  78.         updatestage
  79.         if the mousedown then
  80.           set GBeenClicked = 1
  81.         else
  82.           if gBeenClicked = 1 then
  83.             repeat while gBeenClicked = 1
  84.               FarmingAnimate2
  85.             end repeat
  86.           end if
  87.         end if
  88.       end repeat
  89.       set the locH of sprite 27 to 953
  90.       puppetsprite 27, false
  91.       updatestage
  92.     else
  93.       if rollover(9) then
  94.         ArrowCursor
  95.         repeat while rollover(9)
  96.           set the locH of sprite 10 to 332
  97.           set the locV of sprite 10 to 170
  98.           updatestage
  99.         end repeat
  100.         set the locH of sprite 10 to 932
  101.         updatestage
  102.       else
  103.         if rollover(11) then
  104.           ArrowCursor
  105.           repeat while rollover(11)
  106.             set the locH of sprite 12 to 478
  107.             set the locV of sprite 12 to 322
  108.             updatestage
  109.           end repeat
  110.           set the locH of sprite 12 to 978
  111.           updatestage
  112.         else
  113.           if rollover(13) then
  114.             repeat while rollover(13)
  115.               ArrowCursor
  116.               set the locH of sprite 28 to 471
  117.               set the locV of sprite 28 to 147
  118.               updatestage
  119.             end repeat
  120.             set the locH of sprite 28 to 971
  121.             updatestage
  122.           else
  123.             if rollover(39) then
  124.               HandCursor
  125.             else
  126.               if rollover(41) then
  127.                 HandCursor
  128.               else
  129.                 if rollover(42) then
  130.                   HandCursor
  131. --                else
  132. --                  ArrowCursor
  133.                 end if
  134.               end if
  135.             end if
  136.           end if
  137.         end if
  138.       end if
  139.     end if
  140.   end if
  141.   RandomQuestion(gQuest)
  142. end
  143.  
  144.  
  145. on FarmingAnimate
  146.   ArrowCursor
  147.   set gAnimationcast1 = 1004
  148.   set gAnimationcast2 = 1001
  149.   set count = 0
  150.   puppetsound "SE260900.AIF"
  151.   updatestage
  152.   repeat while count < 4 and (the mouseUp)
  153.     set the castnum of sprite 2 = gAnimationcast1 + 1
  154.     set the castnum of sprite 7 = gAnimationcast2 + 1
  155.     updatestage
  156.     wait .2
  157.     if (the mousedown) then 
  158.       exit repeat
  159.     end if
  160.     set the castnum of sprite 2 = gAnimationcast1 + 2
  161.     set the castnum of sprite 7 = gAnimationcast2 + 2
  162.     updatestage
  163.     wait .2
  164.     if (the mousedown) then 
  165.       exit repeat
  166.     end if
  167.     set the castnum of sprite 2 = gAnimationcast1 + 1
  168.     set the castnum of sprite 7 = gAnimationcast2 + 1
  169.     updatestage
  170.     wait .2
  171.     if (the mousedown) then 
  172.       exit repeat
  173.     end if
  174.     set the castnum of sprite 2 = gAnimationcast1
  175.     set the castnum of sprite 7 = gAnimationcast2
  176.     updatestage
  177.     wait .2
  178.     if (the mousedown) then 
  179.       exit repeat
  180.     end if
  181.     set count = count + 1
  182.   end repeat
  183.   set the castnum of sprite 2 = gAnimationcast1
  184.   set the castnum of sprite 7 = gAnimationcast2
  185.   updatestage
  186.   puppetsound 0
  187.   set gBeenClicked = 0
  188. end
  189.  
  190. on FarmingAnimate2
  191.   ArrowCursor
  192.   set gAnimationcast1 = 1018
  193.   set gAnimationcast2 = 1023
  194.   set count = 0
  195.   puppetsound "SE260500.AIF"
  196.   updatestage
  197.   repeat while count < 3 and (the mouseUp)
  198.     set the castnum of sprite 7 = gAnimationcast1 + 1
  199.     set the castnum of sprite 8 = gAnimationcast2 + 1
  200.     updatestage
  201.     wait .1
  202.     if (the mousedown) then 
  203.       exit repeat
  204.     end if
  205.     set the castnum of sprite 7 = gAnimationcast1 + 2
  206.     set the castnum of sprite 8 = gAnimationcast2 + 2
  207.     updatestage
  208.     wait .1
  209.     if (the mousedown) then 
  210.       exit repeat
  211.     end if
  212.     set the castnum of sprite 7 = gAnimationcast1 + 3
  213.     set the castnum of sprite 8 = gAnimationcast2 + 3
  214.     updatestage
  215.     wait .1
  216.     if (the mousedown) then 
  217.       exit repeat
  218.     end if
  219.     set the castnum of sprite 7 = gAnimationcast1 + 4
  220.     set the castnum of sprite 8 = gAnimationcast2 + 4
  221.     updatestage
  222.     wait .1
  223.     if (the mousedown) then 
  224.       exit repeat
  225.     end if
  226.     set the castnum of sprite 7 = gAnimationcast1 + 2
  227.     set the castnum of sprite 8 = gAnimationcast2 + 2
  228.     updatestage
  229.     wait .1
  230.     if (the mousedown) then 
  231.       exit repeat
  232.     end if
  233.     set the castnum of sprite 7 = gAnimationcast1
  234.     set the castnum of sprite 8 = gAnimationcast2
  235.     updatestage
  236.     wait .1
  237.     if (the mousedown) then 
  238.       exit repeat
  239.     end if
  240.     set count = count + 1
  241.   end repeat
  242.   set the castnum of sprite 7 = gAnimationcast1
  243.   set the castnum of sprite 8 = gAnimationcast2
  244.   updatestage
  245.   set gBeenClicked = 0
  246. end
  247.  
  248.  
  249.  
  250.